push (@output,"\nBlueprint provisioned at $time_blueprint .....: $blueprint_id (Type: $order_type)\nTBNFs provisioned for this blueprint .....: ");

foreach my $line(@output){
  my @vars = $line =~ /(\$\w+)/sg;
  print $_,"\n" for(@vars);
}

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my @results;

while(<DATA>){
   $_ =~ s/'.*?'//sg;
   my @scalars = $_ =~ /(?:(\$\w+(?:->)?(?:\[\$?\w+\]|{\$?\w+}))|(\${\w+})|(\$\w+))/g;
   push(@results,{$. => [grep{defined}@scalars]});
}

print Dumper(\@results);

_ _DATA_ _
$foo
${foo}
$foo[2]
$foo{test}
$foo->{bar}
$foo->[5]
"$foo"
"$foo askjlksdf"
'$foo'
'asdkjlsdf $fool '
Dies ist eine $variable
eine $variable und noch "$eine" und '$keine' 
und ne $referenz->{$key}