ちょっと正規表現触ってみた

でも、うまくいかない。初心者レスになるがすまん。
これ↓なんだが、使い方がが間違ってるか？

#! /usr/bin/perl
#match.pl

$string =<<EOT
>>042
俺は正規表現が分からない。
EOT
;

print "引用番号： $&" if ($string =~ />>[0-9][0-9][0-9]/);