Perl Regex в операторе if [Синтаксис]

До сих пор, если бы я хотел сгруппировать вместе несколько регулярных выражений внутри оператора if , Я сделал это следующим образом:

my $data =...
if ( $data =~ m/regex/ && $data =~ m/secondregex/ ) {...}

Есть ли ярлык (и я уверен, что это Perl!), Чтобы избежать повторения $ data, например:

if ( $data =~ m/regex/ && m/secondregex/ ) {..}

??

Спасибо,