open my $fh, "<filename" or die "$!, for filename";
my $found = 0;
while( <$fh> ) {
    my $tmp = $_;
    $tmp =~ s/\.//g;
    $found = ( $tmp =~ /xyz123abc/ ) and last;
}
close $fh;
if ( $found ) {
    # etc.
}
[download]