if ($url !~ m(^http://)i) {
    $url = 'http://' . $url;
}