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