Regular Expression Perl

$_ = "This text\nhas multiple lines.";
s/^/BOL/g;
s/$/EOL/g;
print;