#!/usr/bin/perl
use strict;
use warnings;
#Open up the data and read it to program
my ( $data, $transType, $accNumber);
open FILE, "sampleTransactions01.dat" or die$!;
$data = <FILE>;

my @values = split(',|\(', $data);
#assign the data a name
$transType=$values[0];
$accNumber=$values[1];


#Printing data
# 
print "***************************************************\n
Transaction Type:$transType\n
Account Number:$accNumber\n
***************************************************\n"