use strict;
use warnings;

my ($x, $y) = (1, 0);

if ($x =~ /whatever/)
{
    $y or last;

    print "Continue with the if clause\n";
}

print "Do something else\n";