Select Code to Download

> perl -l
$,=$/;
...
wrong:
(?-xism:a)
(?-xism:a\\\@b)

> perl -l
$_='root: admin@somewhere.here';
...
__END__
(root:)()
Postmatch contained " admin@somewhere.here"

Hardcoded:
/^root:(?!\s*admin\@somewhere\.here)/
...
Variable:
my $admin_email = 'admin@somewhere.here';
/^root:(?!\s*\Q$admin_email\E)/