# hey I'm a comment
open(file, "wibbywoo") or dienice("some bloated error message");

##</code><code>##

# hey I'm a comment
open(file, "wibbywoo") or dienice("Line 2: some bloated error message");

##</code><code>##

my $counter = "0";
for (@stripped_array) { $_ =~ s/dienice\(\"/dienice\(\"Line $counter/; $counter++; }