in reply to unless/if

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