$ perl -E 'say my $rx = qr|\A(.+)\Q@@/|;' (?-xism:\A(.+)\@\@\/)