use strict;
use warnings;

my $template = <<FILE;
---------------------------------------
Basic Information:
---------------------------------------
Build Report Rev:             02
Builder:                      Xi Wong
Part Name:                    MG5237ALL5X
Customer Name:                SI
Route:                        S5H2-12A
FILE
my $outText;
my %subs = (
    'Build Report Rev' => '01',
    'Builder'         => 'Lucca P.',
    'Part Name'     => 'MG5415DP',
    'Customer Name' => 'SA',
    'Route'         => 'S5H2-12A'
    );

# Info to New Buld Report
open my $base_fh, '<', \$template;
open my $New_fh,  '>', \$outText;


while (my $line = <$base_fh>) {
    if ($line =~ /^([^:]+):(\s+)/ && exists $subs{$1}) {
        $line = "$1:$2$subs{$1}\n";
    }

    print $New_fh $line;
}

close $base_fh;
close $New_fh;

print $outText;