### INIT pragma and lib
    use strict;
    use warnings;
    use YAML;

### INIT vars
    my  $sRaw   = join '', (<DATA>);
    my  $d      = YAML::Load($sRaw)->{data}[0];

### OUTPUT template
print

q%

This is my template.
I am %.$d->{fname}.q% %.$d->{lname}.q%, %.$d->{job}.q%.
I own %.$d->{assets}.q%.

Dont be a *@#!!
You can make big $$bucks$$ by writing template
code!!

%;


__DATA__
data:
  - fname: Elmer J.
    lname: Fudd
    job:    millionaire
    assets: a mansion and a yacht