use strict;
my $str = ' src: url(\'../fonts/levibrush-webfont.eot\');
src: url(\'../fonts/levibrush-webfont.eot?#iefix\') format(\'embedded-opentype\'), url(\'../fonts/levibrush-webfont.woff\') format(\'woff\'), url(\'../fonts/levibrush-webfont.ttf\') format(\'truetype\'), url(\'../fonts/levibrush-webfont.svg#LeviBrushRegular\') format(\'svg\');
html {background:url(../images/bg-body.png) repeat scroll 0 0; color:;}
"../../../../images/image.png"(../../../../images/image.png)\'../../../../images/image.png\' "../../../../images/image.png" \'../../../../images/image.png\'"../../../../images/image.png"\'../../../../images/image.png\'';
my $regex = qr/(?P<open>(?P<quote>['"])|\()(?P<relativeFile>(?:\.\.\/)+.*?)(?P<params>[#\?].*?|)?(?P<close>\k<quote>|\))/xp;
my $subst = '';
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