chomp($file=<stdin>);
die "horribly\n" if /^aaa\[/;
do something if /(\d+)\|\Q$file\E$/;