use strict;
my $str = 'function myFunction() {
let carName = "Volvo";
\'sdf\'// here is a comment, string before it should still exist
let banana
const test = \'string with "quoted substring"\'; let airplane = \'fly\';
("and another string th\'\' as\' asd \'ere")
\'escaped \\\' character \'
labelForStrings: {
`t\'is a\\` "string"`
}
}
const variableShouldStillExist /*asd *****
* 324 @*l;;?\\\\\\
* multiline comment
*** /
*/
/* single multiline */';
my $regex = qr/(?<qt>['"`])(?<string>.*?(?<!\\)\k<qt>\k<delimiter>)|\k<delimiter>(?:[ \t\v])*(?<keyword>(?:const|let|function)\s)|(?<=.*)(?:\/\/.*$)|(?<=.*)(?:\/\*+(?:.|\s)*\*\/)|(?<delimiter>[;{}\n/]|^)(?![;{}\n/])|\s*/imp;
my $subst = '$1$2$3$4';
my $result = $str =~ s/$regex/$subst/rg;
print "The result of the substitution is' $result\n";
Please keep in mind that these code samples are automatically generated and are not guaranteed to work. If you find any syntax errors, feel free to submit a bug report. For a full regex reference for Perl, please visit: http://perldoc.perl.org/perlre.html