BiLTeC

$ua = new LWP::UserAgent;
$begin = "http://www.tcmb.gov.tr/kurlar/";
$data = $begin .'today.html';
$lookup = new HTTP::Request 'GET', "$data";
$response = $ua->request($lookup);
@lines = split (/\n/, $response->content);
foreach $item (@lines) {
        chomp($item);
        $item =~ s/\s+/|/g;
        $tpl =$tpl.$item;
}
($part1,$part2) = split(/TRYUSD/,$tpl);
($part3,$part4) = split(/AUD/,$part2);
($_,$_,$_,$_,$part5,$part6,$efektifa_usd,$efektifs_usd) = split(/\|/,$part3);
($part7,$part8) = split(/TRYEURO/,$tpl);
($part9,$part10) = split(/DEM/,$part8);
($_,$part11,$part12,$efektifa_euro,$efektifs_euro) = split(/\|/,$part9);
if ($efektifs_euro =~/BGL/) {
$efektifs_euro =~ s/BGL/ /;
}
  my $tur = Number::Format->new(-thousands_sep   => '.',
                                -decimal_point   => ',',
                                -int_curr_symbol => 'YTL');


$efektifs_usd =~ s/,//g;
$efektifs_euro =~ s/,//g;