$file =<stdin>;
chomp($file);
if (m/(\d+)\|\Q$file\E$/x) { do something}
elsif (m/^aaa\[/) {die};