Select Code to Download

my $bar = 'asdf  asdf  asdf-rdf';
my $mor = () = $bar =~ /asdf(?:-rdf)?/;
...
3 at - line 6.
1 and 3 = asdf asdf asdf-rdf at - line 7.