>>282
yet another.
パース方法に悩むならXMLも一興。

# hoge.xml
<hoge1>hoge</hoge1>
<hoge2>1230</hoge2>

use XML::Simple;
my $xml = XMLin('hoge.xml');
my $hoge1 = $xml->{hoge1};
my $hoge2 = $xml->{hoge2};