Select Code to Download

'ab' =~ /a(z?)b/   # Returns ''.
'ab' =~ /a(z)?b/   # Returns undef.

my @fizzbin = ( $string =~ m{
    (\w+)\n                     # Grab the title
...
    (\([^\n]+\))?\n             # Optional source
    Data:\s+([^\n]+)\n          # Grab the data
}xmgs);

while (
   my ($title, $what, $date, $source, $data) = $string =~ m{
...

   ...
}