use 5.012;
use warnings;

my $text = <<EOF;
Hallo Welt!
Rhabarber mit 'Quark'
source '/sonst/wo'
oder auch anderes Zeug
'/wo/anders' source
Blubberdidu 'daddeldumm' kawumm
EOF

my @sources =
  map {
    if (/source/ && /'([^']*)'/) {
      ($1)
    } else {
      ()
    }
  }
  split /\n+/, $text;

say for @sources;