use strict;
use warnings;

my $data_dir = 'c:\\Wibble';
my $data = 'Plonk';
my $data_brf = "$data_dir\\$data\.brf";

print "$data_brf\n";