1
2

map { print "jo" if $_ =~ /foo/ } @bar;
@new = map { "$_" if $_ =~ /foo/ } @bar;

@new = grep { /foo/ } @bar;

perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="5065726c2d436f6d6d756e697479"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"'

http://perl-tutor.de