use strict;
use warnings;
my $file = 'match alphabets 21211 not numbers';
my $regexp = qr{[a-z]+};
$, ="\n";
print (my (@arr) = $file =~ /($regexp)/g );