if($chunk_size=~/(\d+)([mMgG])/) {
    my $numb=$1;
    my $tp=$2;
    SW: {
        ($tp eq "g" || $tp eq "G") && do {
            $numb*=1024*1024*1024;
            $size=$numb;
            last SW;
        };
        ($tp eq "m" || $tp eq "M") && do {
            $numb*=1024*1024;
            $size=$numb;
            last SW;
        };
    }
}
else {
    $size=$chunk_size;
}

##</code><code>##

if ( $chunk_size =~ /(\d+)g/i )
{
    $size = $1 * 1024*1024*1024;
}
elsif ( $chunk_size =~ /(\d+)m/i )
{
    $size = $1 * 1024*1024;
}
else
{
    $size = $chunk_size;
}

##</code><code>##

$size = $chunk_size =~ /(\d+)g/i ? $1 * 1024*1024*1024 :
        $chunk_size =~ /(\d+)m/i ? $1 * 1024*1024 :
        $chunk_size =~ /(\d+)k/i ? $1 * 1024 :          # easy addition
        $chunk_size;