sub parseInt {
    my $str = shift;
    $str =~ /(\d+)/;
    return $1;
}