Select Code to Download

$id4 =~ /yesterday(\d+)yesterday/;
my $ans2 = $2 * .40;
$final2 = ($ans2 / 100);

use warnings;
use strict;
use diagnostics;