Ideone.com

download

copy

#!/usr/bin/perl
my $str = "// filename : foo_foo";
if ($str =~ m{^//\h*filename\s*:\s*(.+)}) {
	print "regex $1 \n";
}

Success #stdin #stdout 0.01s 5512KB

stdin

copy

Standard input is empty

stdout

copy

regex foo_foo

https://ideone.com/RVHSaG

language:

Perl (perl 5.28.1)

created:

visibility:

secret

Share or Embed source code

The brand new service which powers Ideone!

Widget for compiling and running the source code in a web browser!