use strict; use warnings; use Data::Dumper; use XML::Simple; my $res = " First article. "; my $res2 = " Football.png Second article. "; my $result = XMLin($res); my $result2 = XMLin($res2); print Dumper $result; print Dumper $result2;