$str = $str.$_;

##</code><code>##

$str .= $_;

##</code><code>##

open my $SPE, '<', 'specification.opml' 
  or die "Can't open the damned specification.opml file! $!";

while ( <$SPE> ){ ...