pattern match

@a contains:-

abcdefg1234
1234 this is a test
test
test 1234

I want to print everything with 1234 so:-



$list = @a =~ /1234/ ;
chomp($list);
print ($list);

Why doesn't this work? :(

Be grateful if someone can point me in the right direction.
.