while (<$info>) {
    @vlinks=split /:/;
    # ...
}