$regenechse = 
  qr{
(\d+)
abcd
([a-z]+)
}x;

...
...
if ($line =~ $regenechse) { 
.....