while( $pairs =~ m{(\S+) \s/ (\S+)}xg ) {
    my( $ip, $mask ) = ( $1, $2 );
}