Anonymous
public text v1 · immutable#!/usr/bin/perl
my $foo = "<bar>totoz<bar>";
if ($foo =~ /<(\w+)>(\w+)<\1>/) {
print "< $1 > : $2\n";
}
#!/usr/bin/perl
my $foo = "<bar>totoz<bar>";
if ($foo =~ /<(\w+)>(\w+)<\1>/) {
print "< $1 > : $2\n";
}