our %ESCAPES = (
   n => "\n",
   t => "\t",
);

sub interpolate {
   local *_ = \$_[0];  # Alias $_ to $_[0].

   my $interpolated = '';

   for (;;) {
      if (/\G \$(\w+) /gcsx || /\G \${(\w+)} /gcsx) {
         no strict 'refs';
        #no warnings;
         $interpolated .= ${$1};
         next;
      }

      if (/\G \\(.) /gcsx) {
         $interpolated .= exists($ESCAPES{$1}) ? $ESCAPES{$1} : $1;
         next;
      }

      /\G
         (
            .            # Catchall.

            (?:          # These four lines are optional.
               (?!\\)    # They are here to speed things up
               (?!\$)    # by avoiding adding individual
            .)*          # characters to the $interpolated.
         )
      /gcsx && do { $interpolated .= $1; next; };

      last;
   }

   return $interpolated;
}